home *** CD-ROM | disk | FTP | other *** search
/ Elite College Girls 1 / Elite College Girls - Volume 1.iso / pc / shared.dir / 01957.ls < prev    next >
Encoding:
Text File  |  1996-02-02  |  4.4 KB  |  116 lines
  1. global gSlowMachine, gFortuneFrame, gFortuneCategory, gFortuneTeller, gTokens, gTokenSprite, gOkaySprite, gFortuneCategorySprite, gMainMenuCursor, gNavigationCursor, gGeneralCursor, gForwardCursor, gBackwardCursor, gLeftCursor, gRightCursor, gScoreCursor, gAboutCursor, gHotCursor, gWaitCursor, gHot, gHotMask, cMainMenuCursor, cNavigationCursor, cGeneralCursor, cForwardCursor, cBackwardCursor, cLeftCursor, cRightCursor, cScoreCursor, cAboutCursor, cHotCursor, cWaitCursor, gBDropSprite, gWhichSpotlight, gDot, gMainBDropCast, gMainBDropPICT, gOldSpot, gPupSound, gUserName, gSpotlightCast, gSpotlightSprite, gSpotlightList, gSpotlightBDropList, gSpotLightFrame, gBalloons, gBalloonsList, gBigCursor1, gBigCursor2, gBigCursor3, gBigCursor4, gBigCursor5, gBigCursor6, gBigCursor7, gBigCursor8, gMouseClick1, gMouseClick2, gMouseClick3, gMouseClick4, gCursorSprite
  2.  
  3. on startMovieCursor
  4.   if the frame = 1 then
  5.   end if
  6.   setProp(1, 48, "visibility", 1)
  7.   puppetSound(0)
  8.   set the volume of sound 1 to 255
  9.   set the volume of sound 2 to 255
  10.   set gHot to the number of cast "Hot"
  11.   set gHotMask to the number of cast "HotMask"
  12.   set gSlowMachine to the machineType = 256
  13.   defineHotSpots([0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0], [0, 0])
  14.   set gBigCursor1 to the number of cast "Big Cursor 1"
  15.   set gBigCursor2 to the number of cast "Big Cursor 2"
  16.   set gBigCursor3 to the number of cast "Big Cursor 3"
  17.   set gBigCursor4 to the number of cast "Big Cursor 4"
  18.   set gBigCursor5 to the number of cast "Big Cursor 5"
  19.   set gBigCursor6 to the number of cast "Big Cursor 6"
  20.   set gBigCursor7 to the number of cast "Big Cursor 7"
  21.   set gBigCursor8 to the number of cast "Big Cursor 8"
  22.   set gMouseClick1 to the number of cast "Mouse Click 1"
  23.   set gMouseClick2 to the number of cast "Mouse Click 2"
  24.   set gMouseClick3 to the number of cast "Mouse Click 3"
  25.   set gMouseClick4 to the number of cast "Mouse Click 4"
  26.   cursor(200)
  27.   set gCursorSprite to 47
  28.   activate(gCursorSprite, gBigCursor3, 1, 36, -100, -100, EMPTY, EMPTY, EMPTY)
  29.   when keyDown then checkKey
  30.   when mouseDown then checkMouse
  31. end
  32.  
  33. on checkMouse
  34.   set userH to the mouseH
  35.   set userV to the mouseV
  36.   set the loc of sprite gCursorSprite to point(userH, userV)
  37.   updateStage()
  38.   set castList to [gBigCursor3, gBigCursor4, gBigCursor5, gBigCursor6, gBigCursor7, gBigCursor8]
  39.   repeat with x = 2 to 5
  40.     set the castNum of sprite gCursorSprite to getAt(castList, x)
  41.     updateStage()
  42.     delayFor(2)
  43.   end repeat
  44.   if gCursorSprite < 48 then
  45.     activate(gCursorSprite + 1, gMouseClick1, 1, 37, userH, userV, EMPTY, EMPTY, EMPTY)
  46.     set castList2 to [gMouseClick1, gMouseClick2, gMouseClick3, gMouseClick4]
  47.     repeat with x = 2 to 4
  48.       set the castNum of sprite (gCursorSprite + 1) to getAt(castList2, x)
  49.       updateStage()
  50.       delayFor(3)
  51.     end repeat
  52.     repeat while the mouseDown
  53.       updateStage()
  54.     end repeat
  55.     delayFor(5)
  56.     repeat with x = 3 down to 1
  57.       set the castNum of sprite (gCursorSprite + 1) to getAt(castList2, x)
  58.       updateStage()
  59.       delayFor(3)
  60.     end repeat
  61.     deactivate([gCursorSprite + 1])
  62.     updateStage()
  63.   else
  64.     repeat while the mouseDown
  65.       updateStage()
  66.     end repeat
  67.   end if
  68.   delayFor(3)
  69.   repeat with x = 4 down to 1
  70.     set the castNum of sprite gCursorSprite to getAt(castList, x)
  71.     updateStage()
  72.     delayFor(4)
  73.   end repeat
  74.   returnCursor()
  75. end
  76.  
  77. on defineHotSpots cuMainMenu, cuNavigation, cuGeneral, cuForward, cuBackward, cuLeft, cuRight, cuScore, cuAbout, cuHot, cuWait
  78.   set gMainMenuCursor to cuMainMenu
  79.   set gNavigationCursor to cuNavigation
  80.   set gGeneralCursor to cuGeneral
  81.   set gForwardCursor to cuForward
  82.   set gBackwardCursor to cuBackward
  83.   set gLeftCursor to cuLeft
  84.   set gRightCursor to cuRight
  85.   set gScoreCursor to cuScore
  86.   set gAboutCursor to cuAbout
  87.   set gHotCursor to cuHot
  88.   set gWaitCursor to cuWait
  89.   setProp(1, 48, "visibility", 1)
  90. end
  91.  
  92. on checkHotSpots
  93.   if checkHotSpot(gHotCursor, cHotCursor) then
  94.     cursor([gHot, gHotMask])
  95.     exit
  96.   end if
  97.   cursor(-1)
  98. end
  99.  
  100. on checkHotSpot whichSprites, whichCursor
  101.   set theResult to 0
  102.   set startSprite to getAt(whichSprites, 1)
  103.   set stopSprite to getAt(whichSprites, 2)
  104.   if startSprite > 0 then
  105.     repeat with x = stopSprite down to startSprite
  106.       if the type of sprite x > 0 then
  107.         if rollOver(x) then
  108.           set theResult to 1
  109.           exit repeat
  110.         end if
  111.       end if
  112.     end repeat
  113.   end if
  114.   return theResult
  115. end
  116.